home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / cbibcode.arc / IDEXP.C < prev    next >
Encoding:
Text File  |  1991-08-05  |  511 b   |  25 lines
  1. /* idexp.c function, from p. 218 of turboc bible */
  2. #include<stdio.h>
  3. #include<math.h>
  4. #include<stdlib.h>            /* errno is defined here */
  5. main(int argc, char **argv)
  6. {
  7.     double mantissa, result;
  8.     int exponent;
  9.  
  10.     if(argc < 3)
  11.     {
  12.         printf("Usage: %s <mantissa> <exponent>\n", argv[0]);
  13.     }
  14.     else
  15.     {
  16.         mantissa = atof(argv[1]);
  17.         exponent = atoi(argv[2]);
  18.         result = ldexp(mantissa, exponent);
  19.         if(errno != ERANGE)
  20.         {
  21.             printf("S raised to %s = %f\n",
  22.             argv[1], argv[2], result);
  23.         }
  24.     }
  25. }